
FOR EACH csta_hist WHERE csta_sim = "CM2004-07" AND csta_part BEGINS "P":
    FIND FIRST sct_det WHERE sct_part = csta_part AND sct_sim = "standard" AND sct_site = "500"NO-LOCK NO-ERROR .

    IF csta_dec03 <> (sct_lbr_tl + sct_lbr_ll + sct_sub_tl + sct_sub_ll) THEN
/*         ASSIGN csta_dec03 = (sct_lbr_tl + sct_lbr_ll + sct_sub_tl + sct_sub_ll). */
    DISP csta_part csta_dec01 csta_dec02 csta_dec03
         (sct_lbr_tl + sct_lbr_ll + sct_sub_tl + sct_sub_ll)
    WITH STREAM-IO WIDTH 200.
END.
